home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
os2
/
te2_130t.arj
/
TE2INST.003
/
CIS.scr
< prev
next >
Wrap
Text File
|
1994-03-28
|
1KB
|
48 lines
;; -------------------------------------------------------------------------
;;
;; CIS.Scr -- Copyright (c) 1993-94, Oberon Software, Mankato Mn
;; Author: Brady Flowers, 04/01/93
;;
;; Login Script for CompuServe. Expects that your CIS Password will be
;; contained in the CIS dialing directory entry.
;;
;; -------------------------------------------------------------------------
string DialerEntry = "CIS" <== Change this for your setup
string myID = "99999,999" <== Change this to your CIS ID
integer i
integer j
program
if !connected
dial(DialerEntry)
endif
if connected
setxonxoff(3)
sleep(200)
do
transmit("^M")
j = muxwait("/Host Name:/User ID:/", 5)
if j == 1
transmit("CPS")
continue
elseif j == 2
transmit("%s^M", myID)
waitfor("Password:", 30)
transmit("%s^M", password(""))
break
else
i = i + 1
sleep(500)
endif
loop while i < 3
if i == 3
hangup(ifcarrier)
endif
endif